//Speaker Test
//Must assign values to pn_note before calling
//Assign values via playNote.e

loop	cpfa	sp_sample	pn_note	ind
	mult sp_sample sp_sample volume
	add	ind	ind	one
	call	spk 	spk_ra
	be	reset	ind	lv
	be	loop	test	test
	halt
reset	sub	ind	ind	lv
	blt	retn	length		
	be	loop zero ind
	halt

length	.data	100
volume .data	5
ind	.data	0
note .data	347
lv	.data	20
test	.data	31
pn_note	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0
	.data	0


#include spkDriver.e
#include constants.e
